home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Prolog / Open Prolog Options < prev    next >
Text File  |  1991-02-01  |  642b  |  14 lines
  1. 'Syntax Error'(File,Position,MessageNumber) :-
  2.         'system$window$open$file$window'(File,Window,0),
  3.         'toolbox$GetIndString'(Message,132,MessageNumber),
  4.         'system$window$set$selection'(Window,Position,Position),
  5.         'system$window$get$output'(Current),
  6.         'system$window$set$output'(Window,_),
  7.         write(Message),
  8.         'system$window$set$output'(Current,_),        
  9.         'system$window$get$selection'(Window,NewPosition,_),
  10.         'system$window$set$selection'(Window,Position,NewPosition).
  11.  
  12. write_time :- 'system$seconds'(S),'system$date'(S,D),'system$time'(S,T),
  13. write(D),write(' '),write(T),write(' ').
  14.